home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / UTILSTEM / BAZIC.LZH / BAZC-PSL.BAT < prev    next >
DOS Batch File  |  1988-12-25  |  2KB  |  101 lines
  1. echo off
  2. bazic run
  3.  
  4. ECHO                         BAZIC executing file BAZC
  5. ECHO  
  6. ECHO  BAZIC.EXE runs this BAZC.BAT file to supplement the functions of
  7. ECHO  batch commands.  The functions are
  8. ECHO  
  9. ECHO  ON ERRORLEVEL GOTO/GOSUB               RETURN
  10. ECHO  INKEY/OUTKEY                           GET
  11. ECHO  STOP NEWPASSWORD                       NEW STACK
  12. ECHO  
  13. ECHO  see the accompanying document for details
  14. ECHO  
  15. ECHO  
  16. goto loop
  17. :help
  18. ECHO type "M" to tell you what month it is
  19. ECHO type "A" for my address
  20. ECHO type (esc) to get out                          "H" for this help
  21. bazic return from help
  22. GOTO :ZZZ27
  23. :loop
  24. ECHO type "H" for help
  25. bazic inkeyoutkey mM aA hH
  26.  
  27. bazic on error gosub exit month address help
  28. GOTO exit
  29. :ZZZ27
  30. goto loop
  31. :month
  32. bazic get month
  33.  
  34. bazic on error gosub exit jan feb mar april may june july aug sept oct nov dec
  35. GOTO dec
  36. :ZZZ34
  37. bazic return to menu
  38. GOTO :ZZZ27
  39. :jan
  40. ECHO it's January.  Happy new year!
  41. bazic return from janus
  42.  
  43. :feb
  44. ECHO it's February.  What a short month.
  45. bazic return from fabulous feb.    NOTE: each return is distinctly different.
  46.  
  47. :mar
  48. ECHO it's March.  March, don't run.
  49. bazic return from the army
  50.  
  51. :april
  52. ECHO it's December.  Ha ha.  April fool.
  53. bazic return from april
  54. :may
  55. ECHO it's May.  Bridal suite and all.
  56. bazic return from may day
  57.  
  58. :june
  59. ECHO it's June.  Alter and all.
  60. bazic return from june
  61.  
  62. :july
  63. ECHO it's July.  Independence.
  64. bazic return to dependency
  65.  
  66. :aug
  67. ECHO it's August, Augustus.
  68. bazic return from the heat
  69.  
  70. :sept
  71. ECHO it's September.  Brrrr.
  72. bazic return, you wonderful summer
  73.  
  74. :oct
  75. ECHO it's Oktoberfest time!
  76. bazic return?  Never!
  77.  
  78. :nov
  79. ECHO it's a chilly November
  80. bazic return to ice
  81.  
  82. :dec
  83. ECHO it's Xmas December
  84. bazic return those useless gifts.
  85. GOTO :ZZZ34
  86.  
  87. :address
  88. type bazc
  89. ECHO  type any key to continue
  90. bazic inkey
  91.  
  92. bazic return from address
  93. GOTO :ZZZ27
  94. :exit
  95. ECHO bye
  96.  
  97.  
  98.  
  99.  
  100.  
  101.